


TTT^T^T 



CJL 



CJVU3 



® 



April 17, 1968 



COMBINING ALL TYPE 1 1400 DISK COMPILERS 
ON A SINGLE. SYSTEM PACK 



Mr. RuelA. Chastonay . 

IBM Corporation 

101 East Miller 

Jefferson City, Missouri 65101 



This paper describes a technique for building a single system pack 
which contains Autocoder, COBOL, FORTRAN, RPG and their 
associated libraries on disk. The work areas for the compilers 
(and the loaderfile in FORTRAN) are assigned to a second drive. 
The following programs were consolidated on a single pack on both 
a 12K 1440 and a 12K 1401: 



1401- AU- 008 
1401-FO-051 

1401-IO-068 

1401-RG-032 
1401-UT-053 
file orgs. 



1440-CB-073 COBOL for 



1401-01.1. 051 PALE OR_ 



AUTOCODER on disk, 

144Q/or/60, 

FORTRAN IV on disk, 

1440-01. 0. 001 PALE, 

1401/60 I DCS on disk OR. 1440-IO-010 IOCS, 

1401/1311 RPG on disk OR 1440-RG-020 1440/1311 RPG, 

1401/1311 disk file organization OR 1440-UT-040 disk 
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Introduction 

The announcement of the special educational allowance for the 1401 gave 
considerable impetus to marketing disk systems for academic usage allow- 
ing for instruction in RPG, COBOL, FORTRAN, as well as Autocoder/ 
IOCS and File Organization Routines. 

Under present techniques, in order to provide the above language capabili- 
ties, a customer might need to generate and reserve as many as four systems 
packs. 

For those 1401/ 1 440/1460 users who have a two or more disk drive system and 
multi-language requirements, the technique discussed in this paper may offer 
an avenue for efficient disk pack usage. 



The technique used for consolidation was to change the standard system assign- 
ments-so that the system area was expanded, the libraries (FORTRAN & Autocoder/ 
COBOL/IOCS/Fi le Organization) were extended to cover the rest of the systems 
pack. Work Area and Loader File assignments were made to the second drive. 
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Procedure 



Use the directions for "Building a ...System" in SRL Manuals C24-3242 
and C24-3259 as a guide with the following modifications. 



Clear Disk Utility Program parameters. 
Mode Address 



MOVE 
LOAD 
MOVE 
LOAD 
MOVE 



000000-000199 
000200-000259 
000260-000299 
000300-008599 
008600-19979 



2. Run the Write File-Protected Addresses Deck. The Control Card of the 
Deck should be modified to read: 
1-15 Fi le-Protect on 



17-20 


131 1 




22 







24-42 


From Normal 


Add res 


44-49 


002500 




51-52 


To 




54-59 


008600 





3. Run the Autocoder System Control Card Build Deck as indicated 
C24-3259. 



Run the Autocoder Update Deck without the Macros. 
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PUNCH AS: 



























PIELO IDENTIFICATION 


l-IO 


H-20 


21-30 . 


31-40 


41-50 


51-60 


61-70 


'71-80 


Il2l3l4l5l6l7l8l9l0 


1 |2I3|4|5|6|7|8|9|0 


I|2|3|4|5|6|?|8(9|0 


I|2|3|4|5|6|7|8I9|0 


l|2|3|4|5|6|7|8|9|0 


II2I3I4I5I6I7I8I9I0 


1 12|3|4|5[6|7|8|9|0 


1 I2I3I4I5I6I7I8I9I 



!_ SYSTM 

2182755 000 DMP 
3^. ... J3YSTM 



UPDATI 0P, PATC H 

3843 26860 0026254100 2 
UPDATS EL , PAT CH 



20 



UPDATFHW, PATCH 
WK1 M01 1200 2004 



4W1 6 5 8X1 6 L.6 9 MK8 4L 1 MG2 2 3 6 4 MG2 
5^7,4,5.90 1.2,4.002 01120 129 0020 124 
6;XJ3 3.618.0 0, .0 0.89 002 00 84 00 M009 4 00 2 
T. , SYS.TM, 

t 2, 4. 2 6.1 FJ LE 
• 3. Ol^l.MlT WK3M0 12 90 02 1240 

REA DER 1 CRD 
LST PRINTER 2 

UPDATPM2 , P AT CH 



103.,6,4 i 6.2:L 


11 1.2.6 .6,2 £ . , 


*j— - 1 '-- 


Ml,. ....... C0B0L. 


150,42 2 + .2 . 


left, 19.0,1 M 


Hi : ,.,..■ 


18^ . 


19, , 



8 5 90 B3 3 4 BT87 12900 2 010400 112 002 00 480 
938000105 0500000 86 0,7 8 0. .0 0, 8 4 2 7 
008900002 M0 09900 2,0 09400002 M0 10 4 02009 

8 2 WK 2M0 i 2400 2 11200002 WK4 

0002 201040 01 WK5 0MI T . CT 

0MI T LDRM01 20 0020 1 04 000 1 TA,B L 

MSG PRINTER 2 L I B M0 1 9 3 8 1 Q 5 



HALT 



END0F S YS TEM C0NTPvC-L U PDA TE , . . C0NS0 LI DATE D 
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FIGURE 1 
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11. Modify the RPG System Card Deck (I440-RG-024 or I40I-RG-032) 
as fol lows: 

Change column 35 of card OOIIRPG I (identified in Cols 
72-80) from to 2. 

Change columns 36 & 37 of card 2933A5900 ( identi f ied i n 
Cols 72-80) from 91 to 76. 

12. LOAD the entire RPG Deck as instructed in C24-3300. 

13. PACE (a type III program). May be loaded in the area indicated 
in Figure 2. 



All standard assignments for the work files and loader files as 
listed in the respective language manuals will have exactly the 
same sector addresses . They will, however, be assumed on device #2. 
See figure 44 in C24-3322 and figure 32 in C24-3259 for work area, 
and. loader area assumed sector assignments. A careful perusal of 'the 
manuals and the cards listed in Figure I will allow any assumed 
assignments desired to be made. 



CONSOLIDATED SYSTEMS PACK 
DISK MAP 
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File 



Autocoder Preprocessor 



Range 
000000 - 000899 



RPG 



000900 - 002499 



Autocoder, FORTRAN, COBOL' 
and System Control 



002500 - 008599 



FORTRAN Library 



008600 - 010499 



Autocoder, COBOL, IOCS, 
File Organization Library 



010500 - 019380 



PACE may be loaded at 



019400 - 019799 



FIGURE 2 



APPENDIX 1 



MACROS IN ALPHABETIC ORDER 
FOR CONSOLIDATED SYSTEM PACK 
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ACEPT 

ADD 

ALCOM 

CALL 

CLOSE 

COMPR 

CSADD 

CSDL1 

CSDL2 

CSLOD 

CSUNL 

DCLOS 

DIVDE 

DIVID 

DIVMC 

DSPLY 

DTFF1 

DTFTP 

EDIT1 

EXPIN 

EXPNI 

FEDRL 

FGCOM 

FILE 

FILE1 

FILE2 

FILE3 

FILE4 

FILE5 

FILE6 

GET 

GOTOD 

IFALP 

IFNUM 

INDIX 



IOCS 

LDRCL 

LOOP 

MA 

MACOP 

MLTPY 

MPYMC 

MULTY 

MVALL 

MVFTR 

OPEN 

OVLAY 

PASS1 

PASS4 

PUT 

RDLIN 

RELSE 

RNDEL 

RNUNL 

SCAN 

SEEK . 

SKIP 

SPACE 

SPLIT 

SUB 

SUBS1 

SUBS2 

SUBS3 

SYSCL 

TRAIL 

XAMIN 

18000 

9000F 

90001 



